<script>on mouseLeaveput empty into cd fld "Msg"end mouseLeave</script>
</part>
<part>
<id>2</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>398</left>
<top>35</top>
<right>465</right>
<bottom>65</bottom>
</rect>
<style>opaque</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<name>Quit</name>
<script>on mouseUpplay "clbtn"answer "MagEditﾃï｣ｿﾃｨIﾃｳﾏ\ﾃﾂｵﾃ窶ｹﾃ竏妥ﾂｩﾃ⑨" with "Yes" or "No"if it is "Yes" thendomenu "quit HyperCard"end ifend mouseUp</script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>18</left>
<top>35</top>
<right>130</right>
<bottom>65</bottom>
</rect>
<style>opaque</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<name>Copy to Clipboard</name>
<script>on mouseUpplay "clbtn"enable cd btn "Copy2"click at loc of btn "Copy2"disable cd btn "Copy2"end mouseUp</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>130</left>
<top>35</top>
<right>197</right>
<bottom>65</bottom>
</rect>
<style>opaque</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<name>Save</name>
<script>on mouseUpplay "clbtn"enable cd btn "Save2"click at loc of btn "Save2"disable cd btn "Save2"end mouseUp</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>331</left>
<top>35</top>
<right>398</right>
<bottom>65</bottom>
</rect>
<style>opaque</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<name>Clear</name>
<script>on mouseUpplay "clbtn"enable cd btn "Clear2"click at loc of btn "Clear2"disable cd btn "Clear2"end mouseUp</script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>251</left>
<top>70</top>
<right>372</right>
<bottom>93</bottom>
</rect>
<style>popup</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<selectedLines>
<integer>1</integer>
</selectedLines>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<name>Templates</name>
<script>on mouseUpglobal TmpPlace,SgnPlace,DrfPlaceput word 2 of SelectedLine of me into PopLineif PopLine is 1 thenenable cd btn "UpDate"click at loc of btn "UpDate"disable cd btn "UpDate"else--ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｨﾃ ﾃｳﾃｹif SelectedText of me is "ﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃï｣ｿﾃ､Jﾃ竕 ..." thenput TmpPlace into cd fld "Location"OpenTmpFolderput empty into cd fld "Location"else if SelectedText of me is "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃï｣ｿﾃｧﾃ古ｨﾃｺ..." thenif line 1 of cd btn "Templates" is not "-" thenput number of lines of cd btn "Templates" -3 into LineNumput line 3 to LineNum of cd btn "Templates" into DelFileListget ListDialog(1,"ﾃｧﾃ古ｨﾃｺﾃ竏妥ﾃ暗液ﾃ院ﾃ韻ﾃ嘉｣ﾃï｣ｿﾃｫIﾃｫï｣ｿﾃﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ⑦",DelFileList,false,,"ﾃｧﾃ古ｨﾃｺ",,)if it is not "Cancel" thenset itemdelimiter to commaput first item of it into DelLineput second item of it into DelFiledelete line DelLine of cd btn "Templates"--ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃﾃεｧﾃ古ｨﾃｺput TmpPlace & ":" & DelFile into DelFileEraseFile DelFileif char 1 to 5 of the result is "Error" thenexit to HyperCardend ifenable cd btn "UpDate"click at loc of btn "UpDate"disable cd btn "UpDate"put empty into cd fld "Location"end ifselect line 1 of cd btn "Templates"elseselect line 2 of cd btn "Templates"end ifelseput TmpPlace & colon & SelectedText of me into ReadTmpopen file ReadTmpread from file ReadTmp until eofput it into cd fld "MainField"close file ReadTmpput SelectedText of me into cd fld "Title"click at loc of btn "Dateﾃ⑦ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①Charﾃ⑦ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①Lineﾃ⑦"set the scroll of cd fld "MainField" to 1end ifselect line 1 of meend ifend mouseUp</script>
</part>
<part>
<id>10</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>18</left>
<top>70</top>
<right>195</right>
<bottom>93</bottom>
</rect>
<style>popup</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<selectedLines>
<integer>2</integer>
</selectedLines>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<name>FontList</name>
<script>on mouseUpset textFont of cd fld "MainField" to the selectedText of cd btn "FontList"end mouseUp</script>
</part>
<part>
<id>12</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>467</left>
<top>339</top>
<right>512</right>
<bottom>357</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>10</textSize>
<textStyle>extend</textStyle>
<textHeight>13</textHeight>
<name>LineNum</name>
<script></script>
</part>
<part>
<id>16</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>379</left>
<top>339</top>
<right>440</right>
<bottom>356</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>10</textSize>
<textStyle>extend</textStyle>
<textHeight>13</textHeight>
<name>CharNum</name>
<script></script>
</part>
<part>
<id>18</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>277</left>
<top>339</top>
<right>340</right>
<bottom>355</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>10</textSize>
<textStyle>extend</textStyle>
<textHeight>13</textHeight>
<name>CurrDate</name>
<script>--on idle-- put the date & the time into cd fld "CurrDate"--end idle</script>
<script>on mouseUpput number of lines of cd fld "MainField" into cd fld "LineNum"put the number of chars in cd fld "MainField" into cd fld "CharNum"put the date into cd fld "CurrDate"set textFont of line 1 to number of lines of cd fld "MainField" of cd fld "MainField" to the selectedText of cd btn "FontList"set textSize of line 1 to number of lines of cd fld "MainField" of cd fld "MainField" to the selectedText of cd btn "FontSize"if cd fld "MainField" is empty thendisable menuItem "ﾃｩﾃｼﾃï｣ｿﾃ･ﾃｼﾃｧﾄｱ" of menu "ﾃδｮ竏槐ｸﾆ抵ｬ"end ifend mouseUp</script>
</part>
<part>
<id>1</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>18</left>
<top>119</top>
<right>496</right>
<bottom>337</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osakaﾃ❶ﾃｬﾃｴﾃｯﾃｹ</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>MainField</name>
<script></script>
</part>
<part>
<id>23</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>264</left>
<top>35</top>
<right>331</right>
<bottom>65</bottom>
</rect>
<style>opaque</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<name>Read</name>
<script>on mouseUpplay "clbtn"if the shiftKey is down thenanswer "May I help you...?"with "Read"or"Send"or"Cancel"if it is "Read" thenput cd fld "HelpList" into cd fld "MainField"end ifif it is "Send" thenput empty into cd fld "HelpList"put cd fld "MainField" into cd fld "HelpList"put empty into cd fld "MainField"end ifexit mouseUpend ifif the systemVersion < 8.5 thenanswer file "Select text file:" of type "text"if it is empty then exit to HyperCardelseput it into FilePathend ifelseput FullNavigation(Get,"TEXT","Select text file:") into FilePathif (FilePath is empty) or (FilePath is Error) then exit to HyperCardend ifopen file FilePathread from file FilePath until eofput it into cd fld "MainField"close file FilePathset textFont of line 1 to number of lines of cd fld "MainField" of cd fld "MainField" to the selectedText of cd btn "FontList"set itemdelimiter to colonput last item of FilePath into cd fld "Title"click at loc of btn "Dateﾃ⑦ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①Charﾃ⑦ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①Lineﾃ⑦"end mouseUp</script>
</part>
<part>
<id>25</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>310</left>
<top>95</top>
<right>484</right>
<bottom>116</bottom>
</rect>
<style>opaque</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<name>ﾃｯ竏づｨﾃｫﾃｨﾃ禿ｯﾃ</name>
<script>on mouseUpplay "clbtn"enable cd btn "Info"click at loc of btn "Info"--disable cd btn "Info"end mouseUp</script>
</part>
<part>
<id>26</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>4</left>
<top>375</top>
<right>21</right>
<bottom>390</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>15420</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>actBtn</name>
<script>on mouseUpif the icon of card btn "actBtn" is 16560 thenplay "down"set the icon of me to 15420lock screenput topLeft of cd window into tlset height of this cd to 390set topLeft of cd window to tl--ﾃ荏ﾃ宇ﾃ叡ﾃ丑elseplay "down"set the icon of me to 16560lock screenput topLeft of cd window into tlset height of this cd to 445set topLeft of cd window to tl--ﾃ荏ﾃ宇ﾃ叡ﾃ丑end ifend mouseUp</script>
</part>
<part>
<id>29</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <false /> </enabled>
<rect>
<left>154</left>
<top>358</top>
<right>166</right>
<bottom>370</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>UpDate</name>
<script>on mouseUp--ﾃｨﾃ｢ﾃ､ﾋ凖ｪ窶ｺﾃｭﾃglobal TmpPlace,SgnPlace,DrfPlaceput the destination into FoldPlaceset itemdelimiter to colondelete last item of FoldPlaceput FoldPlace & ":Templates" into TmpPlaceput FoldPlace & ":ﾃ丑ﾃ嘉､ﾃ叡ﾃ益" into SgnPlaceput FoldPlace & ":Drafts" into DrfPlaceset textAlign of cd fld "Msg" to left----ﾃ ﾂｰﾃ影ﾃ嘉ｬﾃ益ﾃ嘉･ﾃ [ﾃ曳ﾃｨﾃ ﾃｳﾃｹset cursor to busyget allFileList(TmpPlace)put it into TmpFiles-- ﾃ英ﾃ厩ﾃｧﾃ古ｨﾃｺset itemdelimiter to colonrepeat with i = 1 to number of lines in TmpFilesif number of items in line i of TmpFiles > 1then delete item 1 to (number of items in line i of TmpFiles - 1) ofﾂｬline i of TmpFilesput "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｭﾃ愿⑦"&line i of TmpFiles into cd fld "Msg"end repeat--ﾃｧ竕暗ｨIﾃｨﾃ ﾃｳﾃｹif TmpFiles is not empty thenput "ﾃ影ﾃ嘉ｬﾃ益ﾃ嘉･ﾃ [ﾃ曳"&return&"-"&return&TmpFiles &"-"&return&"ﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃï｣ｿﾃ､Jﾃ竕 ..."&return&"ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃï｣ｿﾃｧﾃ古ｨﾃｺ..." into cd btn "Templates"elseput "ﾃ影ﾃ嘉ｬﾃ益ﾃ嘉･ﾃ [ﾃ曳" into cd btn "Templates"end ifselect line 1 of btn "Templates"--ﾃ ﾂｰﾃｨﾃｪﾃｱﾂｺﾃｨﾃ ﾃｳﾃｹset cursor to busyget allFileList(SgnPlace)put it into SgnFiles-- ﾃ英ﾃ厩ﾃｧﾃ古ｨﾃｺset itemdelimiter to colonrepeat with i = 1 to number of lines in SgnFilesif number of items in line i of SgnFiles > 1then delete item 1 to (number of items in line i of SgnFiles - 1) ofﾂｬline i of SgnFilesput "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｭﾃ愿⑦"&line i of SgnFiles into cd fld "Msg"end repeat--ﾃｧ竕暗ｨIﾃｨﾃ ﾃｳﾃｹif SgnFiles is not empty thenput "ﾃ丑ﾃ嘉､ﾃ叡ﾃ益"&return&"-"&return&SgnFiles &"-"&return&"ﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃï｣ｿﾃ､Jﾃ竕 ..."&return&"ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃï｣ｿﾃｧﾃ古ｨﾃｺ..." into cd btn "Sign"elseput "ﾃ丑ﾃ嘉､ﾃ叡ﾃ益" into cd btn "Sign"end ifselect line 1 of btn "Sign"--ﾃ ﾂｰﾃ栄ﾃ嘉｢ﾃ液ﾃ曳ﾃｨﾃ ﾃｳﾃｹset cursor to busyget allFileList(DrfPlace)put it into DrfFiles-- ﾃ英ﾃ厩ﾃｧﾃ古ｨﾃｺset itemdelimiter to colonrepeat with i = 1 to number of lines in DrfFilesif number of items in line i of DrfFiles > 1then delete item 1 to (number of items in line i of DrfFiles - 1) ofﾂｬline i of DrfFilesput "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｭﾃ愿⑦"&line i of DrfFiles into cd fld "Msg"end repeat--ﾃｧ竕暗ｨIﾃｨﾃ ﾃｳﾃｹif TmpFiles is not empty thenput "Drafts"&return&"-"&return&DrfFiles &"-"&return&"ﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃï｣ｿﾃ､Jﾃ竕 ..."&return&"ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃï｣ｿﾃｧﾃ古ｨﾃｺ..." into cd btn "Drafts"elseput "Drafts" into cd btn "Drafts"end ifselect line 1 of btn "Drafts"--ﾃｧ竕暗ｨIﾃｨﾃ ﾃｳﾃｹput empty into cd fld "Msg"set textAlign of cd fld "Msg" to centerend mouseUpfunction allFileList TmpPlaceput getFiles(TmpPlace) into fileListput empty into fListrepeat with i = 1 to number of lines in fileListput line i of fileList & return after fListif last char of line i of fileList = ":"then put allFileList(line i of fileList) after fListend repeatreturn fListend allFileListfunction allFileList SgnPlaceput getFiles2(SgnPlace) into fileListput empty into fListrepeat with i = 1 to number of lines in fileListput line i of fileList & return after fListif last char of line i of fileList = ":"then put allFileList(line i of fileList) after fListend repeatreturn fListend allFileListfunction allFileList DrfPlaceput getFiles3(DrfPlace) into fileListput empty into fListrepeat with i = 1 to number of lines in fileListput line i of fileList & return after fListif last char of line i of fileList = ":"then put allFileList(line i of fileList) after fListend repeatreturn fListend allFileList</script>
</part>
<part>
<id>30</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>18</left>
<top>342</top>
<right>150</right>
<bottom>365</bottom>
</rect>
<style>popup</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<selectedLines>
<integer>1</integer>
</selectedLines>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<name>Sign</name>
<script>on mouseUpput word 2 of SelectedLine of me into PopLineif PopLine is 1 thenenable cd btn "UpDate"click at loc of btn "UpDate"disable cd btn "UpDate"else--ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｨﾃ ﾃｳﾃｹglobal TmpPlace,SgnPlace,DrfPlaceif SelectedText of me is "ﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃï｣ｿﾃ､Jﾃ竕 ..." thenput SgnPlace into cd fld "Location"OpenTmpFolderput empty into cd fld "Location"else if SelectedText of me is "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃï｣ｿﾃｧﾃ古ｨﾃｺ..." thenif line 1 of cd btn "Templates" is not "-" thenput number of lines of cd btn "Sign" -3 into LineNumput line 3 to LineNum of cd btn "Sign" into DelFileListget ListDialog(1,"ﾃｧﾃ古ｨﾃｺﾃ竏妥ﾃ暗液ﾃ院ﾃ韻ﾃ嘉｣ﾃï｣ｿﾃｫIﾃｫï｣ｿﾃﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ⑦",DelFileList,false,,"ﾃｧﾃ古ｨﾃｺ",,)if it is not "Cancel" thenset itemdelimiter to commaput first item of it into DelLineput second item of it into DelFiledelete line DelLine of cd btn "Sign"--ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃﾃεｧﾃ古ｨﾃｺput SgnPlace & ":" & DelFile into DelFileEraseFile DelFileif char 1 to 5 of the result is "Error" thenexit to HyperCardend ifenable cd btn "UpDate"click at loc of btn "UpDate"disable cd btn "UpDate"put empty into cd fld "Location"end ifselect line 1 of cd btn "Sign"elseselect line 2 of cd btn "Sign"end ifelseput SgnPlace & colon & SelectedText of me into ReadSgnopen file ReadSgnread from file ReadSgn until eofput it into line number of lines of cd fld "MainField" +1 of cd fld "MainField"close file ReadSgnclick at loc of btn "Dateﾃ⑦ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①Charﾃ⑦ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①Lineﾃ⑦"end ifselect line 1 of meend ifend mouseUp</script>
</part>
<part>
<id>32</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>197</left>
<top>35</top>
<right>264</right>
<bottom>65</bottom>
</rect>
<style>opaque</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<name>Save as</name>
<script>on mouseUpplay "clbtn"enable cd btn "SaveAs2"click at loc of btn "SaveAs2"disable cd btn "SaveAs2"end mouseUp</script>
<script>on mouseUpif SelectedText of me is "URLﾃï｣ｿﾃｭﾂｫﾃ｢ﾂ｡..." thenask "ﾃｱﾂｺﾃｨﾃεï｣ｿﾃｬﾂｸﾃｳﾃ陛ﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢"if it is empty thenselect line 1 of cd btn "URL"exit mouseUpend ifput it into URLNameask URLName & " ﾃﾃザRLﾃï｣ｿﾃｬﾂｸﾃｳﾃ陛ﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢" with "http://"if it is empty thenselect line 1 of cd btn "URL"exit mouseUpend ifput it into URLocationput URLName &space&space& URLocation &return& cd btn "URL" into cd btn "URL"if line 1 of cd btn "URL" is not "-" thenselect line 1 of cd btn "URL"elseselect line 2 of cd fld "URL"end ifend ifif SelectedText of me is "URLﾃï｣ｿﾃｧﾃ古ｨﾃｺ..." thenif line 1 of cd btn "URL" is not "-" thenput number of lines of cd btn "URL" -3 into LineNumput line 1 to LineNum of cd btn "URL" into URListget ListDialog(1,"ﾃｧﾃ古ｨﾃｺﾃ竏妥ﾃ〟RLﾃï｣ｿﾃｫIﾃｫï｣ｿﾃﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ⑦",URList,false,,"ﾃｧﾃ古ｨﾃｺ",,)if it is not "Cancel" thenset itemdelimiter to commaput first item of it into Ansdelete line Ans of cd btn "URL"end ifselect line 1 of cd btn "URL"elseselect line 2 of cd btn "URL"end ifend ifend mouseUp</script>
</part>
<part>
<id>42</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>276</left>
<top>399</top>
<right>328</right>
<bottom>426</bottom>
</rect>
<style>opaque</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>Go URL</name>
<script>on mouseUpplay "clbtn"if the systemVersion > 8 thenput word 2 of SelectedText of cd btn "URL" into cd fld "Location"GoMagSiteput empty into cd fld "Location"if hilite of cd btn "ﾃ陰ﾃ丑ﾃ瓜ﾃ厩ﾃ･窶朞agEditﾃï｣ｿﾃｨIﾃｳﾏ\ﾃ竏妥ﾃ" thendomenu "quit HyperCard"end ifelseanswer "ﾃﾂｱﾃﾃε｣@ﾃｮ¥ﾃﾃ筆acOS8ﾃ ﾂｻﾃｨ窶榲竕暗ﾂｵﾃﾂｩﾃｩgﾃﾂｶﾃ窶ｹﾃﾏ\ﾃﾃ"end ifput empty into cd fld "Location"end mouseUp</script>
</part>
<part>
<id>31</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>374</left>
<top>70</top>
<right>495</right>
<bottom>93</bottom>
</rect>
<style>popup</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<selectedLines>
<integer>1</integer>
</selectedLines>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<name>Drafts</name>
<script>on mouseUpglobal TmpPlace,SgnPlace,DrfPlaceput word 2 of SelectedLine of me into PopLineif PopLine is 1 thenenable cd btn "UpDate"click at loc of btn "UpDate"disable cd btn "UpDate"else--ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｨﾃ ﾃｳﾃｹif SelectedText of me is "ﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃï｣ｿﾃ､Jﾃ竕 ..." thenput DrfPlace into cd fld "Location"OpenTmpFolderput empty into cd fld "Location"--ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｨﾃ ﾃｳﾃｹelse if SelectedText of me is "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃï｣ｿﾃｧﾃ古ｨﾃｺ..." thenif line 1 of cd btn "Drafts" is not "-" thenput number of lines of cd btn "Drafts" -3 into LineNumput line 3 to LineNum of cd btn "Drafts" into DelFileListget ListDialog(1,"ﾃｧﾃ古ｨﾃｺﾃ竏妥ﾃ暗液ﾃ院ﾃ韻ﾃ嘉｣ﾃï｣ｿﾃｫIﾃｫï｣ｿﾃﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ⑦",DelFileList,false,,"ﾃｧﾃ古ｨﾃｺ",,)if it is not "Cancel" thenset itemdelimiter to commaput first item of it into DelLineput second item of it into DelFiledelete line DelLine of cd btn "Drafts"--ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃﾃεｧﾃ古ｨﾃｺput DrfPlace & ":" & DelFile into DelFileEraseFile DelFileif char 1 to 5 of the result is "Error" thenexit to HyperCardend ifenable cd btn "UpDate"click at loc of btn "UpDate"disable cd btn "UpDate"put empty into cd fld "Location"end ifselect line 1 of cd btn "Drafts"elseselect line 2 of cd btn "Drafts"end if--ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｨﾃ ﾃｳﾃｹelseput DrfPlace & colon & SelectedText of me into ReadDrfopen file ReadDrfread from file ReadDrf until eofput it into cd fld "MainField"close file ReadDrfput SelectedText of me into cd fld "Title"click at loc of btn "Dateﾃ⑦ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①Charﾃ⑦ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①Lineﾃ⑦"put DrfPlace & ":" & SelectedText of me into cd fld "Location"--ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃﾃεｧﾃ古ｨﾃｺput DrfPlace & ":" & DelFile into DelFileEraseFile ReadDrfif char 1 to 5 of the result is "Error" thenexit to HyperCardend ifenable cd btn "UpDate"click at loc of btn "UpDate"disable cd btn "UpDate"put empty into cd fld "Location"set the scroll of cd fld "MainField" to 1end ifselect line 1 of meend ifend mouseUp</script>
</part>
<part>
<id>44</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>10</left>
<top>6</top>
<right>504</right>
<bottom>26</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<name>M a g E d i t</name>
<script>on mouseUpplay "clbtn"answer "MagEdit1.0"ﾂｬ&return&" ﾋ1999 Kazuki Iwai All rights reserved."ﾂｬ& return with "Resource" or "Home" or "OK"if it is "HOME" thenreset menubargo homeend ifif it is "Resource" thenanswer "AddColor XCMD" & return & "ﾃ①ﾋ1993-95 Apple Computer, Inc."ﾂｬ& return & "FullNavigation 1.7ﾃ①EraseFile 1.2" ﾂｬ& return & "ﾃ①ﾋ1998-99,ﾋ1989-97ﾃ①Frederic Rinaldi"ﾂｬ& return & "Dartmouth XCMD's 4.0.3" & return & "ﾃ①ﾋ1988-93 Trustees of Dartmouth College"ﾂｬ& return & "UxMsgBar1.0ﾃ①" ﾂｬ& "UxWriteST1.0ﾃ①" ﾂｬ& "UxFormTxt1.0" & return & "ﾃ①ﾋ1998 ﾃtﾃcﾃh"end ifend mouseUp</script>
</part>
<part>
<id>45</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>197</left>
<top>70</top>
<right>249</right>
<bottom>93</bottom>
</rect>
<style>popup</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<selectedLines>
<integer>2</integer>
</selectedLines>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<name>FontSize</name>
<script>on mouseUpset textSize of cd fld "MainField" to the selectedText of cd btn "FontSize"end mouseUp</script>
</part>
<part>
<id>49</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>468</left>
<top>36</top>
<right>497</right>
<bottom>64</bottom>
</rect>
<style>opaque</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<name>ﾃ⑨</name>
<script>on mouseUpplay "clbtn"global TmpPlace,SgnPlace,DrfPlace,HlpPlace,HlpFilesif HlpFiles is not empty thenget ListDialog(1,"ﾃｭmﾃﾃ凝ﾎｩﾃﾂ｢ﾃｧﾃﾃｱ竅ﾃï｣ｿﾃｫIﾃｫï｣ｿﾃﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ⑦",HlpFiles,false,,"OK",,)if it is not "Cancel" thenset itemdelimiter to commaput HlpPlace & ":" & last item of it into cd fld "Location"OpenHlpMenuput empty into cd fld "Location"end ifend ifend mouseUp</script>
</part>
<part>
<id>50</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <false /> </enabled>
<rect>
<left>177</left>
<top>339</top>
<right>189</right>
<bottom>351</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Copy2</name>
<script>on mouseUpclick at loc of btn "Dateﾃ⑦ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①Charﾃ⑦ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①Lineﾃ⑦"if the systemVersion < 8.5 thenanswer "ﾃﾂｱﾃﾃε｣@ﾃｮ¥ﾃﾃ桧S8.5ﾃ ﾂｻﾃｨ窶榲竕暗ﾂｵﾃﾂｩﾃｩgﾃﾂｶﾃ窶ｹﾃﾏ\ﾃﾃ" with "OK"elseif cd fld "MainField" is not empty thenToClipend ifend ifend mouseUp</script>
</part>
<part>
<id>52</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <false /> </enabled>
<rect>
<left>192</left>
<top>339</top>
<right>204</right>
<bottom>351</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Save2</name>
<script>on mouseUpclick at loc of btn "Dateﾃ⑦ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①Charﾃ⑦ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①Lineﾃ⑦"if cd fld "MainField" is not empty thenset textFont of cd fld "MainField" to the selectedText of cd btn "FontList"--ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｱﾂｺﾃﾃεｭ竏妥竕･ﾃ荏ﾃ宇ﾃ叡ﾃ丑if the length of cd fld "Title" > 31 thenput char 1 to 31 of cd fld "Title" into cd fld "Title"end if--if the systemVersion < 8.5 thenask file "File nameﾃ⑦" with cd fld "Title"if it is empty then exit to HyperCardelseput it into FilePathend ifelseput FullNavigation(P,,"File nameﾃ⑦",cd fld "Title") into FilePathif (FilePath is empty) or (FilePath is Error) then exit to HyperCardend ifset cursor to busyUxWriteST FilePath, "id 1", "cd", falseenable cd btn "UpDate"click at loc of btn "UpDate"disable cd btn "UpDate"end ifend mouseUp</script>
</part>
<part>
<id>53</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <false /> </enabled>
<rect>
<left>207</left>
<top>339</top>
<right>219</right>
<bottom>351</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>SaveAs2</name>
<script>on mouseUpclick at loc of btn "Dateﾃ⑦ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①Charﾃ⑦ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①Lineﾃ⑦"if cd fld "MainField" is not empty thenglobal TmpPlace,SgnPlace,DrfPlaceset textFont of cd fld "MainField" to the selectedText of cd btn "FontList"answer "ﾃｯ竄ｬﾃｫ竏づｪﾃ甘ï｣ｿﾃｫIﾃｫï｣ｿﾃﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢" with "ﾃ丑ﾃ嘉､ﾃ叡ﾃ益" or "Templates" or "Drafts"--ﾃ ﾂｰﾃ丑ﾃ嘉､ﾃ叡ﾃ益ﾃï｣ｿﾃｫIﾃｫï｣ｿif it is "ﾃ丑ﾃ嘉､ﾃ叡ﾃ益" thenif cd fld "Title" is not empty thenCheckFileNameNumput SgnPlace & colon & cd fld "Title" into SgnPlace2elseask"ﾃｯ竄ｬﾃｫ竏づｱﾂｺﾃï｣ｿﾃｬﾂｸﾃｳﾃ陛ﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢"if it is not empty thenput it into cd fld "Title"CheckFileNameNumput SgnPlace & colon & cd fld "Title" into SgnPlace2end ifend if--ﾃｨdﾃｯﾂｰﾃ竏妥ﾃ暗液ﾃ院ﾃ韻ﾃ嘉｣ﾃｱﾂｺﾃ邃｢ﾃﾂｻﾃﾂ｢ﾃﾂｩﾃ荏ﾃ宇ﾃ叡ﾃ丑set itemDelimiter to colonput last item of SgnPlace2 into FileNamerepeat with i = 1 to number of lines of cd btn "Sign"set cursor to busyif line i of cd btn "Sign" is FileName thenEraseFile SgnPlace2if char 1 to 5 of the result is "Error" thenErrorCheckend ifend ifend repeat--UxWriteST SgnPlace2, "id 1", "cd", falseif char 1 to 5 of the result is "Error" thenErrorCheckend ifend if--ﾃ ﾂｰﾃ影ﾃ嘉ｬﾃ益ﾃ嘉･ﾃ [ﾃ曳ﾃï｣ｿﾃｫIﾃｫï｣ｿif it is "Templates" thenif cd fld "Title" is not empty thenCheckFileNameNumput TmpPlace & colon & cd fld "Title" into TmpPlace2elseask"ﾃｯ竄ｬﾃｫ竏づｱﾂｺﾃï｣ｿﾃｬﾂｸﾃｳﾃ陛ﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢"if it is not empty thenput it into cd fld "Title"CheckFileNameNumput TmpPlace & colon & cd fld "Title" into TmpPlace2end ifend if--ﾃｨdﾃｯﾂｰﾃ竏妥ﾃ暗液ﾃ院ﾃ韻ﾃ嘉｣ﾃｱﾂｺﾃ邃｢ﾃﾂｻﾃﾂ｢ﾃﾂｩﾃ荏ﾃ宇ﾃ叡ﾃ丑set itemDelimiter to colonput last item of TmpPlace2 into FileNamerepeat with i = 1 to number of lines of cd btn "Templates"set cursor to busyif line i of cd btn "Templates" is FileName thenEraseFile TmpPlace2if char 1 to 5 of the result is "Error" thenErrorCheckend ifend ifend repeat--UxWriteST TmpPlace2, "id 1", "cd", falseif char 1 to 5 of the result is "Error" thenErrorCheckend ifend if--ﾃ ﾂｰﾃ栄ﾃ嘉｢ﾃ液ﾃ曳ﾃï｣ｿﾃｫIﾃｫï｣ｿif it is "Drafts" thenif cd fld "Title" is not empty thenCheckFileNameNumput DrfPlace & colon & cd fld "Title" into DrfPlace2elseask"ﾃｯ竄ｬﾃｫ竏づｱﾂｺﾃï｣ｿﾃｬﾂｸﾃｳﾃ陛ﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢"if it is not empty thenput it into cd fld "Title"CheckFileNameNumput DrfPlace & colon & cd fld "Title" into DrfPlace2end ifend if--ﾃｨdﾃｯﾂｰﾃ竏妥ﾃ暗液ﾃ院ﾃ韻ﾃ嘉｣ﾃｱﾂｺﾃ邃｢ﾃﾂｻﾃﾂ｢ﾃﾂｩﾃ荏ﾃ宇ﾃ叡ﾃ丑set itemDelimiter to colonput last item of TmpPlace2 into FileNameCheckFileNameNumrepeat with i = 1 to number of lines of cd btn "Drafts"set cursor to busyif line i of cd btn "Drafts" is FileName thenEraseFile TmpPlace2if char 1 to 5 of the result is "Error" thenErrorCheckend ifend ifend repeat--UxWriteST DrfPlace2, "id 1", "cd", falseif char 1 to 5 of the result is "Error" thenErrorCheckend ifend ifenable cd btn "UpDate"click at loc of btn "UpDate"disable cd btn "UpDate"end ifend mouseUpon CheckFileNameNum--ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｱﾂｺﾃﾃεｭ竏妥竕･ﾃﾃε荏ﾃ宇ﾃ叡ﾃ丑if the length of cd fld "Title" > 30 thenput char 1 to 30 of cd fld "Title" into cd fld "Title"end if--end CheckFileNameNumon ErrorCheckbeepanswer "ﾃｳ¥ﾃ､ﾋ凖ﾏ\ﾃﾂ ﾃ烏ﾃ嘉｢ﾃ [ﾃ邃｢ﾃ｣Nﾃﾂｴﾃ窶ｹﾃﾂｵﾃﾎｩ"exit to HyperCardend ErrorCheck</script>
</part>
<part>
<id>54</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <false /> </enabled>
<rect>
<left>178</left>
<top>354</top>
<right>190</right>
<bottom>366</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Clear2</name>
<script>on mouseUpput empty into cd fld "MainField"put empty into cd fld "Title"click at loc of btn "Dateﾃ⑦ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①Charﾃ⑦ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①Lineﾃ⑦"put empty into cd fld "Msg"end mouseUp</script>
</part>
<part>
<id>55</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <false /> </enabled>
<rect>
<left>162</left>
<top>344</top>
<right>174</right>
<bottom>356</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Info</name>
<script>on mouseUpdisable cd btn "Info"click at loc of btn "Dateﾃ⑦ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①Charﾃ⑦ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①Lineﾃ⑦"if cd fld "MainField" is not empty thenset textFont of line 1 to number of lines of cd fld "MainField" of cd fld "MainField" to the selectedText of cd btn "FontList"put number of lines of cd fld "MainField" into LineNumput the number of chars in cd fld "MainField" into CharNumput 0 into MaxNumput "--" into MaxNumLinerepeat with i = 1 to LineNumset cursor to busyUxMsgBar i/LineNum*100, "R"put "ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ① Wait..." into msgput the length of line i of cd fld "MainField" into InvMaxNumif InvMaxNum > MaxNum thenput InvMaxNum into MaxNumput i into MaxNumLineend ifend repeathide msgput MaxNum/2 into MaxNumanswer "ﾃｧsﾃｪﾃｮﾃ⑦"&LineNum &return& "ﾃ｢ﾂｸﾃｧsﾃï｣ｿﾃ､窶ｹﾃﾃ津ﾃｦﾃｯ竏づｩﾃｶﾃｪﾃｮﾃ⑦"&CharNum&returnﾂｬ& "ﾃ｢ﾂｸﾃｧsﾃï｣ｿﾃ､窶ｹﾃ窶ｹﾃﾂｻﾃﾂ｢ﾃｯ竏づｩﾃｶﾃｪﾃｮﾃ⑦"&CharNum-LineNum+1&return& "ﾃ㈲ﾃｧsﾃ窶 ﾃﾎｩﾃﾃ凝ﾃεｧ竕暗ｫﾃづｯ竏づｩﾃｶﾃｪﾃｮﾃ⑦"&MaxNum&" ﾃｯ竏づｩﾃｶ [ Lineﾃ⑦"&MaxNumLine&" ]"ﾂｬwith "ﾃｧsﾃｫﾂｵﾃﾂｶ" or "ﾃｧ竕暗ｫﾃづｯ竏づｩﾃｶﾃｳﾃ" or "OK"if it is "ﾃｧ竕暗ｫﾃづｯ竏づｩﾃｶﾃｳﾃ" thenif cd fld "MainField" is not empty thenselect line MaxNumLine of cd fld "MainField"end ifend ifif it is "ﾃｧsﾃｫﾂｵﾃﾂｶ" thenask "ﾃ｢ﾎｩﾃｯ竏づｩﾃｶﾃ竕暗｢ﾂｸﾃｧsﾃï｣ｿﾃｬﾂｸﾃﾃ催窶ｹﾃ竏妥ﾂｩﾃ⑨"if it is not empty thenput it*2 into Numput UxFormTxt(cd fld "MainField", Num) into cd fld "MainField"if char 1 to 6 of the result is "Error : " thenexit mouseUpend ifend ifend ifend ifend mouseUp</script>
</part>
<part>
<id>57</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>223</left>
<top>339</top>
<right>235</right>
<bottom>351</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Read2</name>
<script>on mouseUpclick at loc of btn "Dateﾃ⑦ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①Charﾃ⑦ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①Lineﾃ⑦"if the shiftKey is down thenanswer "May I help you...?"with "Read"or"Send"or"Cancel"if it is "Read" thenput cd fld "HelpList" into cd fld "MainField"end ifif it is "Send" thenput empty into cd fld "HelpList"put cd fld "MainField" into cd fld "HelpList"put empty into cd fld "MainField"end ifexit mouseUpend ifif the systemVersion < 8.5 thenanswer file "Select text file:" of type "text"if it is empty then exit to HyperCardelseput it into FilePathend ifelseput FullNavigation(Get,"TEXT","Select text file:") into FilePathif (FilePath is empty) or (FilePath is Error) then exit to HyperCardend ifopen file FilePathread from file FilePath until eofput it into cd fld "MainField"close file FilePathset textFont of line 1 to number of lines of cd fld "MainField" of cd fld "MainField" to the selectedText of cd btn "FontList"set itemdelimiter to colonput last item of FilePath into cd fld "Title"click at loc of btn "Dateﾃ⑦ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①Charﾃ⑦ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①Lineﾃ⑦"set the scroll of cd fld "MainField" to 1end mouseUp</script>
<script>on openCardput menu "ﾃδｴ窶ｺﾆ" into cd btn "FontList"set textFont of cd fld "MainField" to the selectedText of cd btn "FontList"put the date into cd fld "CurrDate"--ﾃ嘉 ﾃ泳ﾃ嘉姪 [ﾃｧﾃﾃｱ竅reset menubarcreate menu "ﾃδｮ竏槐ｸﾆ抵ｬ"put "ﾃｬﾋ凖ｯtﾃï｣ｿﾃｫ}ﾃｬﾂｸ,ﾃｩﾃｻﾃｧﾃｨﾃï｣ｿﾃｫ}ﾃｬﾂｸ,-,ﾃｬﾋ凖ｯtﾃï｣ｿﾃ嘘ﾃ鋭ﾃ [,ﾃｩﾃｻﾃｧﾃｨﾃï｣ｿﾃ嘘ﾃ鋭ﾃ [,ﾃ丑ﾃ嘉､ﾃ叡ﾃ益ﾃ閲ﾃ [ﾃ栄ﾃｯ¥ﾃｩﾂｶ,-,ﾃ･ﾃｼﾃｧﾄｱ,ﾃｩﾃｼﾃï｣ｿﾃ･ﾃｼﾃｧﾄｱ,ﾃ･ﾃｼﾃｧﾄｱﾃ ﾃｯﾃｭuﾃ､竏,-,ﾃｧsﾃï｣ｿﾃ｢ﾃ津ﾃ凝ｧﾃｻﾃ窶ｹﾃﾏ\ﾃﾃ" into mITEMput "PutDate,PutTime,,CopyDate,CopyTime,ShowClip,,FindWord,FindNext,FindReplace,,Wrap" into mMSGput mITEM into menu "ﾃδｮ竏槐ｸﾆ抵ｬ" with menuMsg mMSG--ﾃｨﾃ｢ﾃ､ﾋ凖ｪ窶ｺﾃｭﾃif the dontWrap of cd fld "MainField" = false thenset the checkMark of menuItem "ﾃｧsﾃï｣ｿﾃ｢ﾃ津ﾃ凝ｧﾃｻﾃ窶ｹﾃﾏ\ﾃﾃ" of menu "ﾃδｮ竏槐ｸﾆ抵ｬ" to trueset the dontwrap of cd fld "MainField" to falseelseset the checkMark of menuItem "ﾃｧsﾃï｣ｿﾃ｢ﾃ津ﾃ凝ｧﾃｻﾃ窶ｹﾃﾏ\ﾃﾃ" of menu "ﾃδｮ竏槐ｸﾆ抵ｬ" to falseset the dontwrap of cd fld "MainField" to trueend ifdisable menuItem "ﾃｩﾃｼﾃï｣ｿﾃ･ﾃｼﾃｧﾄｱ" of menu "ﾃδｮ竏槐ｸﾆ抵ｬ"global TmpPlace,SgnPlace,DrfPlace,HlpPlace,HlpFilesput the destination into FoldPlaceset itemdelimiter to colondelete last item of FoldPlaceput FoldPlace & ":ﾃ駅ﾃ嘉｣ﾃ益" into HlpPlaceput FoldPlace & ":Templates" into TmpPlaceput FoldPlace & ":ﾃ丑ﾃ嘉､ﾃ叡ﾃ益" into SgnPlaceput FoldPlace & ":Drafts" into DrfPlace----ﾃ ﾂｰﾃ影ﾃ嘉ｬﾃ益ﾃ嘉･ﾃ [ﾃ曳ﾃｨﾃ ﾃｳﾃｹset cursor to busyget allFileList(TmpPlace)put it into TmpFiles-- ﾃ英ﾃ厩ﾃｧﾃ古ｨﾃｺset itemdelimiter to colonrepeat with i = 1 to number of lines in TmpFilesif number of items in line i of TmpFiles > 1then delete item 1 to (number of items in line i of TmpFiles - 1) ofﾂｬline i of TmpFilesput "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｭﾃ愿⑦"&line i of TmpFiles into cd fld "Msg"end repeat--ﾃｧ竕暗ｨIﾃｨﾃ ﾃｳﾃｹif TmpFiles is not empty thenput "ﾃ影ﾃ嘉ｬﾃ益ﾃ嘉･ﾃ [ﾃ曳"&return&"-"&return&TmpFiles &"-"&return&"ﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃï｣ｿﾃ､Jﾃ竕 ..."&return&"ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃï｣ｿﾃｧﾃ古ｨﾃｺ..." into cd btn "Templates"elseput "ﾃ影ﾃ嘉ｬﾃ益ﾃ嘉･ﾃ [ﾃ曳" into cd btn "Templates"end ifselect line 1 of btn "Templates"--ﾃ ﾂｰﾃｨﾃｪﾃｱﾂｺﾃｨﾃ ﾃｳﾃｹset cursor to busyget allFileList(SgnPlace)put it into SgnFiles-- ﾃ英ﾃ厩ﾃｧﾃ古ｨﾃｺset itemdelimiter to colonrepeat with i = 1 to number of lines in SgnFilesif number of items in line i of SgnFiles > 1then delete item 1 to (number of items in line i of SgnFiles - 1) ofﾂｬline i of SgnFilesput "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｭﾃ愿⑦"&line i of SgnFiles into cd fld "Msg"end repeat--ﾃｧ竕暗ｨIﾃｨﾃ ﾃｳﾃｹif SgnFiles is not empty thenput "ﾃ丑ﾃ嘉､ﾃ叡ﾃ益"&return&"-"&return&SgnFiles &"-"&return&"ﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃï｣ｿﾃ､Jﾃ竕 ..."&return&"ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃï｣ｿﾃｧﾃ古ｨﾃｺ..." into cd btn "Sign"elseput "ﾃ丑ﾃ嘉､ﾃ叡ﾃ益" into cd btn "Sign"end ifselect line 1 of btn "Sign"--ﾃ ﾂｰﾃ栄ﾃ嘉｢ﾃ液ﾃ曳ﾃｨﾃ ﾃｳﾃｹset cursor to busyget allFileList(DrfPlace)put it into DrfFiles-- ﾃ英ﾃ厩ﾃｧﾃ古ｨﾃｺset itemdelimiter to colonrepeat with i = 1 to number of lines in DrfFilesif number of items in line i of DrfFiles > 1then delete item 1 to (number of items in line i of DrfFiles - 1) ofﾂｬline i of DrfFilesput "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｭﾃ愿⑦"&line i of DrfFiles into cd fld "Msg"end repeat--ﾃｧ竕暗ｨIﾃｨﾃ ﾃｳﾃｹif TmpFiles is not empty thenput "Drafts"&return&"-"&return&DrfFiles &"-"&return&"ﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃï｣ｿﾃ､Jﾃ竕 ..."&return&"ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃï｣ｿﾃｧﾃ古ｨﾃｺ..." into cd btn "Drafts"elseput "Drafts" into cd btn "Drafts"end ifselect line 1 of btn "Drafts"--ﾃ ﾂｰﾃ駅ﾃ嘉｣ﾃ益ﾃｨﾃ ﾃｳﾃｹset cursor to busyget allFileList(HlpPlace)put it into HlpFiles-- ﾃ英ﾃ厩ﾃｧﾃ古ｨﾃｺset itemdelimiter to colonrepeat with i = 1 to number of lines in HlpFilesif number of items in line i of HlpFiles > 1then delete item 1 to (number of items in line i of HlpFiles - 1) ofﾂｬline i of HlpFilesput "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｭﾃ愿⑦"&line i of HlpFiles into cd fld "Msg"end repeat--ﾃｧ竕暗ｨIﾃｨﾃ ﾃｳﾃｹput empty into cd fld "Msg"pass openCardend openCardfunction allFileList TmpPlaceput getFiles(TmpPlace) into fileListput empty into fListrepeat with i = 1 to number of lines in fileListput line i of fileList & return after fListif last char of line i of fileList = ":"then put allFileList(line i of fileList) after fListend repeatreturn fListend allFileListfunction allFileList SgnPlaceput getFiles2(SgnPlace) into fileListput empty into fListrepeat with i = 1 to number of lines in fileListput line i of fileList & return after fListif last char of line i of fileList = ":"then put allFileList(line i of fileList) after fListend repeatreturn fListend allFileListfunction allFileList DrfPlaceput getFiles3(DrfPlace) into fileListput empty into fListrepeat with i = 1 to number of lines in fileListput line i of fileList & return after fListif last char of line i of fileList = ":"then put allFileList(line i of fileList) after fListend repeatreturn fListend allFileListfunction allFileList HlpPlaceput getFiles4(HlpPlace) into fileListput empty into fListrepeat with i = 1 to number of lines in fileListput line i of fileList & return after fListif last char of line i of fileList = ":"then put allFileList(line i of fileList) after fListend repeatreturn fListend allFileListon PutDateput the date into line number of lines of cd fld "MainField" +1 of cd fld "MainField"end PutDateon PutTimeput the time into line number of lines of cd fld "MainField" +1 of cd fld "MainField"end PutTimeon CopyDateput the date into cd fld "Location"CopDatend CopyDateon CopyTimeput the time into cd fld "Location"CopDatend CopyTimeon ShowClipShowClipBoardend ShowClipon Wrapif the checkMark of menuItem "ﾃｧsﾃï｣ｿﾃ｢ﾃ津ﾃ凝ｧﾃｻﾃ窶ｹﾃﾏ\ﾃﾃ" of menu "ﾃδｮ竏槐ｸﾆ抵ｬ" = false thenset the checkMark of menuItem "ﾃｧsﾃï｣ｿﾃ｢ﾃ津ﾃ凝ｧﾃｻﾃ窶ｹﾃﾏ\ﾃﾃ" of menu "ﾃδｮ竏槐ｸﾆ抵ｬ" to trueset the dontwrap of cd fld "MainField" to falseelseset the checkMark of menuItem "ﾃｧsﾃï｣ｿﾃ｢ﾃ津ﾃ凝ｧﾃｻﾃ窶ｹﾃﾏ\ﾃﾃ" of menu "ﾃδｮ竏槐ｸﾆ抵ｬ" to falseset the dontwrap of cd fld "MainField" to trueend ifend Wrapon FindWordCheckFieldglobal FindStrask "ﾃ･ﾃｼﾃｧﾄｱﾃ竏妥ﾃ暗ｯ竏づｩﾃｶﾃｳﾃ津ï｣ｿﾃｬﾂｸﾃｳﾃ陛ﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢" with FindStrif it is empty then exit FindWordput it into FindStrfind string FindStrput word 1 to 2 of the foundLine & " ( " &word 1 to 4 of the foundChunk &" )" into cd fld "Msg"enable menuItem "ﾃｩﾃｼﾃï｣ｿﾃ･ﾃｼﾃｧﾄｱ" of menu "ﾃδｮ竏槐ｸﾆ抵ｬ"end FindWordon FindNextCheckFieldglobal FindStrfind string FindStrput word 1 to 2 of the foundLine & " ( " &word 1 to 4 of the foundChunk &" )" into cd fld "Msg"end FindNexton FindReplaceCheckFieldglobal FindStrask "ﾃ･ﾃｼﾃｧﾄｱﾃ竏妥ﾃ暗ｯ竏づｩﾃｶﾃｳﾃ津ï｣ｿﾃｬﾂｸﾃｳﾃ陛ﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢" with FindStrif it is empty then exit FindReplaceput it into SerchStrask "ﾃｭuﾃ､竏妥竏妥ﾃ暗ｯ竏づｩﾃｶﾃｳﾃ津ï｣ｿﾃｬﾂｸﾃｳﾃ陛ﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢"if it is empty then exit FindReplaceput it into ChangeStrrepeatfind string SerchStrif the result is "not found" then exit repeatput word 1 to 2 of the foundLine & " ( " &word 1 to 4 of the foundChunk &" )" into cd fld "Msg"answer "ﾃｭuﾃ､竏妥ﾂｵﾃ窶ｹﾃ竏妥ﾂｩﾃ⑨" with "ﾃｭuﾃ､竏" or "ﾃｩﾃｼﾃï｣ｿﾃ･ﾃｼﾃｧﾄｱ" or "ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣"if it is "ﾃｭuﾃ､竏" thenput ChangeStr into the foundChunkelseif it is "ﾃｩﾃｼﾃï｣ｿﾃ･ﾃｼﾃｧﾄｱ" then next repeatelse exit repeathide msgend ifhide msgend repeatend FindReplaceon CheckFieldif cd fld "MainField" is empty thenexit to HyperCardend ifend CheckField--ﾃ ﾂｰﾃ鰻ﾃ嘉｡ﾃ [ﾃ曳ﾃ雨ﾃ叡ﾃ曳on controlKey x--ﾃ閲ﾃ運ﾃ嘉ｬif x is 3 thenenable cd btn "Copy2"click at loc of btn "Copy2"disable cd btn "Copy2"end ifif x is 19 thenenable cd btn "Save2"click at loc of btn "Save2"disable cd btn "Save2"end ifif x is 13 thenenable cd btn "SaveAs2"click at loc of btn "SaveAs2"disable cd btn "SaveAs2"end ifif x is 15 thenenable cd btn "Read2"click at loc of btn "Read2"disable cd btn "Read2"end ifif x is 5 thenenable cd btn "Clear2"click at loc of btn "Clear2"disable cd btn "Clear2"end ifif x is 17 thendomenu "quit HyperCard"end ifif x is 9 thenenable cd btn "Info"click at loc of btn "Info"end if--ﾃ嘉 ﾃ泳ﾃ嘉姪 [ﾃ頴ﾃ [if x is 4 thenput the date into line number of lines of cd fld "MainField" +1 of cd fld "MainField"end ifif x is 20 thenput the time into line number of lines of cd fld "MainField" +1 of cd fld "MainField"end ifif x is 6 thenFindWordend ifif x is 7 thenFindNextend ifif x is 18 thenFindReplaceend ifif x is 23 thenWrapend ifend controlKey</script>
</card>
card_3744.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
